/* GUI CONVERTED from ecqmcpy1.p (converter v1.76) Thu May  8 00:26:26 2003 */
/* ecqmcpy1.p - Item Specification Copy from Quality Module                */
/* Copyright 1986-2003 QAD Inc., Carpinteria, CA, USA.                     */
/* All rights reserved worldwide.  This is an unpublished work.            */
/* $Revision: 1.10 $                                                         */
/*V8:ConvertMode=Maintenance                                               */
/* Revision: 8.6    Last Modified: 07/22/96     BY: Mariya Kutwal *K00C    */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98  BY: *L007* A. Rahane        */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98  BY: *K1Q4* Alfred Tan       */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98  BY: *J314* Alfred Tan       */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00  BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/14/00  BY: *N0KW* Jacolyn Neder    */
/* REVISION: 9.1      LAST MODIFIED: 08/23/00  BY: *N0MZ* Rajinder Kamra   */
/* Old ECO marker removed, but no ECO header exists *K00C*                    */
/* $Revision: 1.10 $     BY: Karan Motwani         DATE: 04/29/03  ECO: *N2DZ*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/*K00C* - Copy from Quality Module (ipd_det) to PCC Module (ecd4_det)      */

/* SHARED VARIABLE  DEFINITIONS */
{mfdeclre.i}

/* EXTERNAL LABEL INCLUDE */
{gplabel.i}

/* SCROLLING WINDOW VARIABLE DEFINITINS */
{wndvar2.i}

define variable section as integer no-undo.
define variable l_title as character format "x(60)" no-undo.

define shared temp-table ipdtable
   field ipdstar as character format  "x(1)"
   field ipdrouting like ipd_routing
   field ipdpart like ipd_part
   field ipdop like ipd_op
   field ipdnbr like ipd_nbr
   field ipdtest like ipd_test label "Number"
   field ipdlabel like ipd_label
   field ipdtol like ipd_tol
   field ipdtoltype like ipd_tol_type
   field ipdrecid as recid.

assign
   section = 0
   window_row = 9
   window_down = 10
   l_title = " " +
             getTermLabel("QUALITY_MODULE",20) + " - " +
             getTermLabel("ITEM_SPECIFICATION_DETAIL_RECORDS",40) +
             " ".

/* SCROLLING WINDOW WITH SELECTION */
pause 0.

/* CHANGED {&ecsmcp1_p_2 TO l_title BELOW */
{windowx.i
   &file       = ipdtable
   &display    = "ipdstar no-label ipdtest ipdop ipdlabel ipdtol ipdtoltype"
   &index-fld1 = ipdtest
   &index-fld2 = ipdtest
   &frametitle = l_title
   &framephrase = "width 80"
   &return     = no
   &recid-var  = global_recid
   &tag-var    = ipdstar
   &tag-val1   = ""*""
   &tag-val2   = """"
   &tag-all    = no}
